AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 
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00 MODULE i MA met "x UTILITY SHOW COMMAND’ 


BEGIN 


1 
Le R RRA E EERE AAA ERA AREER TATA AEAEE ARATE EES 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


!* THIS SOFTWARE 4 FURNISHED_UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH LL, 
!* INCLUSION OF THe ABOVE pl dh NOTICE. THIS SOFTWARE OR ANY OTH 


is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. 2 
® 
* 
® 
® 
* 
a 
® 
& 
* 
*® 
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!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- pORPORAT I be NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LRA AREA ERATE AAA AERA 
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; FACILITY: VAX/VMS MAIL UTILITY 

ABSTRACT: SHOW command handling. 

; AUTHOR: Benn Schreiber, 5-Dec-1982 
09 MODIFIED BY: 
0039 1} v03-008 BLS0255 Benn Schreiber 28-Dec-1983 
0040 : New global flags. Add SHOW KEY command. SHOW NEW 
sig does not need to open mail file. 
004 i v03-007 BLS0246 Benn Schreiber 8-Nov-1983 | 
Bote Move new mail count to VMSMAIL. 
0046 1} v03-006 BLS0229 Benn Schreiber 16-Jul-1983 
s'0h4 Add SHOW NEW_MAIL_COUNT command, and SHOW ALL command. | 
0049 1 | v03-005 BLS0225 Benn Schreiber 17-Jun-1983 
0050 ! Remove reference to MAIL$Q "VASMAILDAT DESC, as it 
boas no longer is needed. | 
$633 i v03-004 BLS0220 Benn Schreiber 30-Apr-1983 
Boe : Add SHOW MAIL _DIRECTORY, "SHOW AUTO_PURGE | 
0056 i v03-003 BLS0217 Benn Schreiber 12-Apr-1983 
005 ! Add SHOW COPY_SELF command. 
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3 8 0 - 2 

3 9 0 ; 1! v03-002 BLS0214 nn Schreibe 27-Mar-1983 
; & 060 1! SHOW FOLDER “4. 5404 peyg? ee connenés. Correct 

3; «66h 061 1! error in SHOW PERSONAL if record exists but has 

3 ? Boe : no personal de. set. 

;s 0064 1! v03-001 gg Benn Schreiber 13-Mar-1983 
3 Fs aoe : New commands for ISAM mail files 
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i Declarations 


RARY ‘SYSSLIBRARY:STARLET'; 
UIRE ‘SRC$:MAILREQ'; 
RARY ‘LIBS:MAILDEF'; 


COMMAND _DESC: a 


zara 


DYN_DESC: S$BBLOCK 
P _DTYPE 
“CLASS 


AB: L CK, 
US : REF SBBLOCK, 
MAILSL_SYSMAIBUF: REF S$BBLOCK; 


EXTERNAL ROUTINE 


CLISGET VALUE: ADDRESSING _MODE (GENERAL), 
CLISPRESENT : ADDRESSING_MODE (GENERAL), 


SCOPY DX, 
SFREET_DX: ADDRESSING MODE (GENERAL), 
g ADDRESSING_MODE (GENERAL) . 


MAIL$PUT OUTPU 
MAILSREAD_INFO_REC; 


126,LOCAL, 


(TEXT, SUCCESS)); 


COMMA_DESC = SDESCRIPTOR(',*); 


V4. 4 
:CMAIL.SR 


‘Pointer to 
‘Mail file 
‘control flags 
'Descriptor of ‘USER’ 
‘Default dev/dir spec 
‘Current folder name 
'Wastebasket name 
‘Current file descriptor 
‘username descriptor 
‘RAB for VMSMAIL.DAT 
‘User's vmsmail record 
'Pointer to buffer 


key defs table 
rab 


'Get value from CLI 
'Test qualifier present 
‘Ensure file open 

'Get key defs from smg 
‘String append 

'String concatenate 
iperene oony 
:Free dynamic bering 
‘Trim trailing blanks 

'See if forwarding enabled 
‘Wildcard match routine 

'Get message and then fao it 
'Get message text for code 
'Get count of new messages 
‘Read record from VMSMAIL.DAT 
'See if SYSNAM privilege 
‘Format and write to output 
‘Read isam file info rec 


) Define facility specific names for shared messages 
SSHR_MSGDEF (MAIL 


On 
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P 
DISKSVMSMASTER: CMAIL.SRCJSHOW.B32;1 
GLOBAL ROUTINE MAILSCMD_SHOW_FORWARD = 

FUNCTIONAL DESCRIPTION: 


= 
BEGIN 


LOCAL 
TMPBUF : SBBLOCKCVMD_C_LENGTH*+2*NAMSC_MAXRSS); 


IF NOT CLISPRESENT(MAILS$SD_USER) 
THEN BEGIN 


IF NOT MAILSCHECK_FORW(MAILS 
THEN MAILSPUT ated ba 
F 


~ 
wr 


uw 
Oooo 


OO ODD OWOOMDOODO NINN 
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| 
| 
| 
'Check for self 

wm rent | 

ELSE MAILSPUT _OUTPUT(MA HOWS0), 
MAILSC_USRSYSBU J; 
| 


mr - 
ozzm 
~->>Prw~ 
eae 
orr 
= 
nonw 


END 

ELSE BEGIN 
; To look at someone else's you must have privilege 
if NOT MAILSFORW PRIV_CHECK() 
CLISGET_VALUE (MAILSSD USER,COMMAND_DESC); !Get name to show 
IF CHSFAIL(CHSF IND CHT 


. COMMAND _DESCCBSCS$W_LENGTH), .COMMAND_DESCCDSCS$A_POINTERI,'*")) 
AND CHSF RIL (CHSFIND~CH( 
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00000 


SE 
DESC_T : SBBLOCKCDSC$C_S_BLN); 


i Show for a wildcard user. Read all records of the file sequentially 
} and check for a match. 


CHSFILL(O,DSC$C BLN,DESC_1); 


01 
0¢ oe . COMMAND _DESCCDSCS$W_LENGTH], . COMMAND_DESCCDSC$A_POINTER], '%")) 
04 IF NOT MAILSCHECK_FORW(COMMAND_DESC, TMPBUF) 1Show a single user 
05 THEN MAILSPUT OUTPUT (MAILSGETMSG(MAIL$_SHOW4O) , 
07 ELSE MAILSPUT OUTPUT (MAILSGETMSG(MAIL$_SHOW10), 
08 COMMAND _DESC, TMPBUFLVMD_B_FWDLNGJ): 
09 END 

0 ELSE BEGIN 

1 AL 

: FIRST_USER 

4 


MAIL$T_SYSMAIRABLRABSB_RAC] = RABSC_SEQ; 

MAIL$T-SYSMAIRABLRABSL-UBF) = TMPBUF; 
SREWIND (RAB=MAILS$T_SYSMAIRAB) ; 
FIRST_USER = 1; 

WHILE” ($GET(RAB=MAILST_SYSMAIRAB) NEQ RMS$_EOF) | 
DO BEGIN | 


C_USERNANME ; 
DESC"1CDSCSA~POINTER) = TMPBOFLVMD_T_USERNAME); 


DESC_1); 
IF MAILSMATCA_NAME (DYNDESC COMMAND _DESC) | 
AND .TMPBOFCVMD_B_FWOLNG) NEQ 0 


000909 08 SIN NN SN SN NNOOO 
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COOOCOOCOCOCOOCOOCOCOOCOOOOOOOOSOOOOOOOOOOoOOOO 
WWAW AAA. AANA AIA AAI AAAI AANA AAAI 


WANS 


IF .FIRST_USER 


14-Sep-1 


: 189 ; 4 THEN MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_SHOW5O) ,0); 
: 190 FIRST_USER = 0; 

; 191 4 MAILSPUT_ OUTPUT ( 

; 19¢ 5 SDESCRIPTOR('!31AS !AC') 

: 19 $ * DYN. DESC TRPBUELVAD B FUOLNG)) ; 
: 194 IF .MAICSGL_FLAGSCMAIF_0_CTRLCFL 

: 195 8 THEN RETURN TRUE; 

> 196 END; 

: 197 0 4 END; 

; 198 0 41 4 MALL T_SYSMAIRABLRABSB_RAC] = RABSC_KEY; 

: 200 8 rk END; 

; 201 44 2 RETURN TRUE 

3 02 0345 END; 


-IDENT \v04- 
«PSECT $CODES,NOWRT,2 


2C 00000 P.AAB: .ASCII \,\ 
00001 -BLKB 3 
00000001 00004 P.AAA: .LONG 
00000000" 00008 -ADDRESS P.AAB 
45 4D 41 4E 59 45 4B 9000¢ P.AAD: .ASCII  \KEYNAME\ 
9001 ‘BLKB 
00000007 00014 P.AAC: ‘LONG 7 
00000000" 00018 -ADDRESS P.AAD 
4C 4C 41 OOO1C P.AAF: ASCII \ALL\ 
9901F “BLKB. 
00000003 00020 P.AAE: ‘LONG 
00900000" 00024 “ADDRESS P.AAF 
45 54 41 54 53 00028 P.AAH: <ASCII \STATE\ 
900¢0 -BLKB 3 
00000005 00030 P.AAG: LONG 5 
00990000" 00034 -ADDRESS P.AAH 
46 45 49 42 00038 P.AAJ: ASCII \BRIEF\ 
903p -BLKB 
00000005 00040 P.AAI: LONG 
00000000" 00044 ;ADDRESS P.AAJ 
59 52 4F 54 43 45 52 49 44 00048 P.AAL: ‘ASCII \DIRECTORY\ 
051 -BLKB 
00 9009 094 P.AAK: _LONG 
0° 8 “ADDRESS P.AAL 
43 41 21 20 53 41 31 21 005 P.AAN: ASCII 31a 'AC\ 
0000009 90068 P.AAM: .LONG 9 
0000000" 0006¢ “ADDRESS P.AAN 


-PSECT SOWNS,NOEXE,2 
00# 00000 COMMAND_DESC: se 
02 OF a0 02 “BYTE of2 2 
:B 4 
00# 00008 DYN_DESC: 
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04-000 
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000000006 
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000000006 


OO7EDE48 
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67 
7E 000000006 00 98000083 
O7EDESO 


FPWR = = =O 
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A_DESC= 
YNAME= 


9 VAX-11 Bliss-32 V4.0-742 Page 
DISKSVMSMASTER: (MAIL. SRCJSHOW.832;1 
(2) ‘ 
4, 2 : 
P. AAA 
P. AAC 
P. AAE 
P.AAG 
P.AAI 
P.AAK 
MAILSL_SMG_KEYTABLE 
MAILST— 5° RAB, MAILSGL AGS 
MAILS$SSD USER. erail Q SOSERD EF 
MAILS$Q_CUR 
MAIL$Q- “wast Pbese 
MAIL$Q_RD_DESC, MAIL$Q_USERNAME 
MAILS$T_SYSMAIRAB 
MAILSL— =USRS¥ SBUF 
MAILSL~SYSMAIBU 
CLISGET VALUE, VELISPRES SENT 
MAIL SOPEN IF, SM MGSLIST _KEY_DEFS 
STREAPP END, STR 
STRSCOPY _DX, TRE SeNceT Dx 
STRSTRIM, MAILSCHECK_FORW 
MAIL SMATCH NAME 
MAILSFAO MSG 
MAILS sce TASC. MAILSGET_NEWMAIL 
MAILSGET_SYSMAI_RE 
RAIL SFORO PRIV CHECK 


MAILS$PUT_OUTPU 
MAILSREAD INFO REC 
SYSSREWIND, SYSSGET 


SCODES,NOWRT ,2 


MAILSCMD_ oy FORWARD, Save R2,R3,R4,R5,R6,-; 0275 


R7,R8 4g aii. R11 
mails §D R11 
CHECK. FORG. R10 


M R 
T_SYSMAIRAB+30, R8 
POT OUTPUT, R7 


OMMAND BESC, R6 
88(SPJ, SP 


ISPRESENT 


Becce 


Demin 


NAME 
ATLECHECK. FORW 


= >- —, 
—o 
sfazsur 
Sa>roewr- 


40 
, MAILSGETMSG 
#1, MAILSPUT_OUTPUT 
#67, MAILSL_USRSYSBUF, -(SP) 
Pestacas “2 
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v04-000 12-8 08- 1 3b 93:23:39 DISKSVMSMASTER:CMAIL.SRCJSHOW.B32:1 © “4 
47 11 00068 BRB S$ ; 
000000006 90 0 rg 6 gp 2$ CALLS #0, MAILSFORW_PRIV_CHECK + 0296 | 
A E 4 BLBC ; 7$ : | 
6 DD 00077 PUSHL R6 + 0298 
DD 00079 PUSHL R17 : 
000000006 99 02 FB 0007 ALLS #2, CLISGET ALUE ; 
66 3¢ MOVZWL COMMAND _DEST, R + 0300 
2¢ 04 Ab p60 00 VL C0 ND~DESC , R2 : 
62 g A 3A 00089 LOCC #42, R3, (R2) + 0299 
‘ 12 0008 BNEQ 3$ : 
D4 0008F CLRL sR : 
31 D3 00 1 3$ TSTL = RY + 0300 
F 93 BNEG B$ : 
62 53 5 3A 0009 LOCC #37, R3, (R2) + 0301 
: 12 90099 BNEQ 4$ : 
D4 00098 CLRL eR : 
31 DS 00090 4$ 2) : 0302 
3 12 0009F BNEQ 8$ : 
08 AE 9F OOOA1 PUSHAB TMPBUF + 0304 
56 DD 000A4 PUSHL ; 
6A 02 FB 00A6 CALLS #2, MAILSCHECK_FORW ; 
12 EB 000A9 BLBS RO. 6$ : 
56 DD OOOAC PUSHL + 0305 
OO7EDESS BF DD OOOAE PUSHL #8314456 ; 
69 01 FB 000B4 5$ CALLS #1, MAILSGETMSG ; 
50 DD 00087 PUSHL ; 
67 0¢ FB 000B9 CALLS #2, MAILS$PUT_OUTPUT : 
13 11 000BC BRB ; 
4B AE 9F OOOBE 6$ PUSHAB TMPBUF +67 : 0308 
56 DD 000C1 PUSHL : 0307 
OO7EDE4O 8F DD 000C3 PUSHL #8314432 F 
69 01 FB 000C9 CALLS #1, MAILSGETMSG ; 
50 bd 000CC PUSHL : 
67 03 FB OOOCE CALLS #3, MAILS$PUT_OUTPUT : 0308 
0083 31 00001 7$ BRW : 0299 
08 00 6E 00 2c 9004 8$ MOVCS #0, (SP), #0, #8, DESC_1 : 0318 
+3 94 SODA CLRB = MAILST_SYSMAIRAB+ > 0319 
06 As 08 AE 9E 000DC MOVAB TMPBUF> MAIL$T_SYSMAIRAB+36 > 0320 
E2 AS 9F O00ET PUSHAB MAILST_SYSMAIR > 0321 
000000006 00 01 FB O00E4 CALLS #1, SYSSREWIND ; 
52 01 DO O00EB #1, FIRST_USER : 0322 
E2 AB OF OOOEE 98: PUSHAB MAIL$T_SYSMAIRAB : 032 
900000 06 00 gi FB OOF] CALLS #1, SySSGET : 
001827A =F 9 D F8 CMPL =—sRO. #989 : 
53 13 OOOFF BEQL si : 
65E 1F ge 191 MOVW #31, DESC_1 > 0325 
04 AE 08 AE 9E 001 MOVAB TMPBUF, DESC_1+4 : 0326 
5E pd 0109 PUSHL SP > 0327 
08 A6 OF 198 PUSHAB DYN_DESC : 
000000006 00 9 FB 001 CALLS ae. STRSTRIM $ | 
BD 11 PUSHL R : 0328 
08 Ad 9F 0011 PUSHAB DYN_DESC : 
000000006 00 Q FB 11A CALLS #2, MAILSMATCH_NAME : 
CA § 121 BLBC OséR ; 
48 AE } 124 TSTB TMPBUF +67 : 0329 
C5 13 00107 BEQL 9S : 


J 12 
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vest 13-08-13 5:25:38 DISKSVMSMASTER: CMAIL. SRCJSHOW.B32;1 (3) 
10 52 E9 00129 BLBC —«FIRST_USER, 10$ : 0331 : 
E D4 0012C CLRL sigh) + 0332 ; 
OO7EDE60 8F DD 001 PUSHL #8314464 : : 
9 1 FB 001 CALLS #1, MAILSGETMSG : : 
DD 00137 PUSHL ; : 
67 FB 00139 CALLS #2, MAILSPUT_OUTPUT : : 
4 0013¢ 108 LRL —s FIRST SER : 333 : 
4 AE F 001 F PUSHAB TMPBUF+ ; F 
08 A6 9F 0014 PUSHAB DYN_DESC + 0334 ; 
FEB F OF 00144 PUSHAB P.AAM + 0335 F 
67 3 FB 148 CALLS #3, MAILSPUT OUTPUT : $ ; 
¢ 000000006 99 9 001 : BLBC MAILSGL_FLAGS* . 9 : 0337 ; 
68 1 90 154 11$: MOVB #1, MAIL$T_SYSMAIRAB+30 + 0341 : 
1 p 157 12$: MOVL #1. RO t 0344 ; 
4 0015A RET : 0345 


; Routine Size: 347 bytes, Routine Base: S$CODE$S + 0070 


_ CA LC ttn 


K 12 


; Routine Size: 85 bytes, Routine Base: $CODE$S + 01CB 
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yoLtoo0 ae Hers A | Se HS 
; 04 46 GLOBAL ROUTINE MAILSCMD_SHOW_FOLDER = 2 
; 06 48 | FUNCTIONAL DESCRIPTION: 3 
03 0 i ! Show the current folder name 
i 31] § BEGIN : 
: ig P 2 IF ~ERR(MAILSOPEN IFOs, ; 
14 0 26 RETURN TRUE); : 
: 16 0 26 IF NOT .MAILSGL_FLAGSCMAIF_V_ISAM) : 
; 7 ; 59 THEN RETURN” SIGNAL (MAICS~NOTISAM) ; : 
: 219 0361 2 IF .MAIL$O CURF OLDER DSC Sw cbenstn] EQL 0 : 
: 20 0566 THEN RETU NAL (MAIC$_NOF OLDER, %X" 10000") : 
21 0568 ELSE RETURN ST eNA L(MAILS~MAILF OLDER, %X' 10001" MAIL$Q_CURFOLDER) : 
; $38 0365 1 END; 
000¢ 00000 .ENTRY MAILSCMD SHOW FOLDER, Save R2,R3 + 0346 
53 000000006 00 9€ 00002 MOVAB MAIL$Q_CORFOLDER, R3 : 
52 000000006 00 9€ 00009 MOVAB LIBSS TCNAL. R : 
000000006 00 00 FB 00010 CALLS #0, MAILSOPEN_IF + 0356 
04 50 €8 00017 BLBS STATUS, 1$ : 
50 01 D0 OOO1A MOVL rt RO : 
04 0001D RET ; 
0A 000000006 00 €E8 OO01E 1$: BLBS MAILSGL FLAGS, 2$ > 0358 
007E80 8F DD 0002 PUSHL #82904 : 0359 
01 FB 00028 CALLS #1, LIBSSIGNAL : 
04 0002E RET : 
63 BS 000 F 2%: TSTW  MAIL$Q_CURFOLDER > 0361 
10 12 00031 BNEQ : 
00010000 8F DD 00033 PUSHL + 0362 
007E80C2 F DD 00039 PUSHL #8290498 : 
62 2 FB 0003F CALLS #2, LIBSSIGNAL : 
04 00042 RET : 0363 
53 DD 00043 38: PUSHL R3 : 
90010001 Hi DD 0045 PUSHL # 5537 : 
O7EDF28 8F DD 00048 PUSHL #8314664 : 
2 03 FB 00051 CALLS #3, LIBSSIGNAL : 
04 00054 RET : 0365 
| 
} 
| 


Sa 


| 
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> 225 66 GLOBAL ROUTINE MAILSCMD_SHOW_DELMSG = 

5 ? és FUNCTIONAL DESCRIPTION: 

3 ; 19 : Show amount of deleted space in current isam file 
: 1 i } lee 

3 ¢ 7 BEGIN 

; 74 

; 4 0375 LOCAL 

; 5 i: RECPTR : REF SBBLOCK, 

; 7 DELCOUNT, 

i $37 0 A: RECDESC : VECTORC2,LONG); 

: 239 P 0380 2 IF -ERR(MAILSOPEN IFQO:, 

: 40 038) RETURN TRUE); 

: 4¢ itt IF NOT .MAILSGL_FLAGSCMAIF_V_ISAMJ 

3 246 0384 THEN RETURN” SIGNAL (MAILS “NOTISAM); 

> 266 0385 

: 245 0386 2 DELCOUNT = 0; 

> 266 0387 IF MAIUSREAD: INFO_REC(MAIL$T_RD_RAB,MFR_C_FILEINFO,1,RECDESC) 
3 p67 0388 3 THEN BEGIN 

: 268 0389 RECPTR = .RECDESC(1); 

; 249 0390 DELCOUNT = . (RECPTREMFR_T_DATA)<0,32,0>; 

ef OF 

: 338 0398 RETURN SIGNAL (MAIL$_DELSPACE,%X"10002" ,MAIL$Q_RD_DESC, .DELCOUNT) 
: 254 0395 1 END; 


000c 00000 .ENTRY MAILSCMD_SHOW_DELMSG, Save R2,R3 : 0366 
53 000000006 00 i 00002 MOV LIBSSIGNAL, R3 ; 
SE 08 C2 00009 SUBL SP : 
000000006 00 00 FB 900¢ CALLS #0, MAILSOPEN_IF > 0381 
04 0 €8 0001 BLBS STATUS, 1$ ; 
50 01 00 00016 MOVL ‘ : 
04 00019 RET 5 
0A 000000006 00 E8 OO01A 1$: BLBS WALLSGL FLAGS, 2$ > 0383 
007€80 F DD 00021 PUSHL 48 047% > 0384 
63 1 FB 90 i CALLS #1, LIBSSIGNAL : 
52 D4 00028 2$: CLRL - DELCOUNT > 0386 
SE DD 00 D PUSHL SP : 0387 
01 DD 0002F PUSHL #1 : 
03 BD 0031 PUSHL #3 : 
000000006 00 9F 000 3 PUSHAB MAILST R : 
000000006 4 FB 0 ; CALLS s RATLSREAD, INFO_REC : 
0 04 A 06 6 ‘3 MOVL Hie RECPTR : 0 
5 0 ad D 4 MOVL  48(RECPTRS, DELCOUNT : 0 
5 BD 0048 3$: PUSHL : 0 
000000006 00 9F 0004D PUSHAB MALSOn NRD _DESC : 


————— ; 
M12 
1 thant celle ope eSep-198e 12:42:88 DESKSUMSMASTERSCMAIL -SRCIsHOW.832;1 29° (35 v 


$00 10008 PF DD 38 PUSHL #83 
EBEA F OD PUSHL a 
3 4 fe f A # 
0 62 Re 
; Routine Size: 99 bytes, Routine Base: S$CODE$ + 0220 
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VAX/VMS MAIL UTILITY SHOW COMMAND 16-Sep-1984 + 9 ‘4 39 VAX=11 BL 
14-Sep 2:42: ISK$VM 
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RASSSIS ARAN SOS NSAP OOOO 
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On 1984 D SM 
} GLOBAL ROUTINE MAILSCMD_SHOW_NAME = 
| FUNCTIONAL DESCRIPTION: 
ii This routine aiepers = full username set by the 
; SET PERSONAL_NAME command 
1 - 
BEGIN 
LOCAL 
TMPBUF : SBBLOCKCVMD_C_LENGTH+2*NAMSC_MAXRSS); 
BIND 
UREC = .MAILSL_USRSYSBUF : $BBLOCK; 
IF NOT CLISPRESENT(MAIL$SD_USER) 
THEN BEGIN 
IF “URECC VND 8 FNMLNG) EQL 0 
THE MAICSPUT OUTPUT (MAIL SGETRSG (MAILS. SHOWED) 
; ese MAILSPUT™ “OUTPUT (MAIL SGETBSG(RAILS HOW70), 
ae OREEE VED. T B ENALNGI. URECCVMD_B_FWDLNG)); 
ELSE BEGIN 
Check for privileges 
if WoT MAILSFORW PRIV_CHECK() 
CLISGET NVALUE CRAILSS6 USER, COMMAND_DESC); 
IF CHSFAIL(CHSF IND CH 
mM : D DESC COSC Su LENGTH), .COMMAND_DESCCDSCSA_POINTER],'*")) 
AND CHSFAILCCHSFIND 
; aaa wee . COMMAND “DESC CDSCSU LENGTH], .COMMAND_DESCCDSCS$A_POINTER],'%')) 
4 TAPBUF CVAD 8 FNMLNG) = 
4 MAICSCET SYSMAI Rec « OMMAND_DESC, TMPBUF ) 
4 NOR MO MPBUE FCOMD_B_FRMLNG) EQL 
é THEN MAILSPUT QUTPUT (MALL SGETRSG RAILS. SHOW8O) , 
4 ELSE MAILSPUT OUTPUT CHAILSGETHSG(HAILS_ SHOW90) , 
4 COMMAND _DESC,.TMPBUFLVMD B-FNMLNGJ, 
‘ ae TMPBUF CUMD_T_FWDNAMJ+, TMPBOF CVMD _B’FWDLNG)); 
‘ ELSE BEGIN 
4 i Show for wildcard user. Read all records sequentially 
2 and check for a match 
4 LOCAL RST USER 
4 DESC_T : SBBLOCKCDSCSC_S a 
4 CHSFILL(O,DSC$C_S_BLN,DESC_1 
4 RAIL ST” ST SRAIRABERABSS® RAC a: *RABSC_SEQ; 
4 MAILS$ST_SYSMAIRABCRABSL_UBF) = TMPBUF; 


++ 


MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 


13 
$ep-1984 01:21: AX=11 Bliss-32 V4.0-742 1 
v04-000 30p71 Sbe 13:23:35 DISKSVMSMASTER: CMAIL.SRCIJSHOW.B32; 1 (6 


7 
: 313 0455 4 SREWIND (RAB=MAILST_SYSMAIRAB); | 
: 314 454 4 FIRST_USER = 1; 
3 «(S$ 0455 WHILE™($GET(RAB=MAILST_SYSMAIRAB) NEQ RMS$_EOF) | 
: 316 0436 DO BEGIN 
: 317 045 DESC 1EDSCSW_ LENGTH] = VMD_C_USERNAME; 
: 318 0458 DESC-1CDSCS$A-POINTER] = TMPBOFLVMD_T_USERNAME); 
: 319 0459 5 STRSTRIM(DYN DESC ,DESC 1)" 
: 320 0460 § IF MAILSMATCA_NAME (DYN-DESC COMMAND _ DESC) 
; 321 0461 § AND MMPBOFCVMD_B FNALH LNG 
; 332 O46¢ 4 THEN BEGIN 
: 32 0463 6 IF .FIRST_USER 
; 324 0464 6 THEN MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_SHOW100) ,0); 
> 325 0465 6 FIRST_USER = 0; 
; 326 0466 6 MAILSPUT_OUTPUT < 
: 327 0467 6 SDESCRIPTOR('!31AS AD"). 
: 328 0468 6 DYN_DESC,.TMPBUFLVMD B_FNMLNG), 
: 329 0469 6 TMPBUFCVMD_T_FWONAMJ?. STRPBUF LVAD B_FWDLNG]); | 
: 330 0470 6 IF -AAILSGL FLAGSCRAILF_V _CTRLCF 
: 331 0471 6 THEN RETURN TRUE; 
: 332 0472 5 END; 
: 333 0473 4 END; | 
: 334 0474 4 MAILST _SYSMAIRABCRAB$B_RAC] = RABSC_KEY; 
: 335 0475 3 END; 
: 336 0476 2 END; 
: 337 0477 2 
3; 338 0478 2 RETURN TRUE 
: 339 0479 1 END; | 
44 41 21 20 53 41 31 33 21 00283 P.AAP: . ASCII \!31AS !AD\ : 
00000009 0028C P.AAO: .LON ; 
00000000" 00290 -ADDRESS P.AAP ; | 
07FC 00000 .ENTRY MAILSCMD_SHOW_NAME, Save R2,R3,R4,R5,R6,R7.-; 0396 


MOVAB MAIL$SD_US 


5A 000000006 00 9E 00002 : 
59 000000006 00 9€ 00009 MOVAB MAIL$T gy sae iRnns30, RO ; 
58 000000006 00 9E 90019 MOVAB MAILSGETMS : 
57 000000006 00 9€ 0001 MOVAB MAILSPUT OUTPUT, R7 : 
56 00000000' 00 9E 00018 MOVAB C0 MMAND_BESC, R6 : 
25 FD fF | 808 MOVAB - SP SP Z 
52 000000006 00 9 00 A MOVL MAILSL_USRSYSBUF, R2 0410 | 
000000006 90 gi FB Mii 3 CALLS #1, CLISPRESENT F 
1 0 E 0003A BLBS RO. 2$ : 
42 Ag 5 0003p TSTB 66(R2) + 0414 
10 12 0004 BNEQ : 
OO7EDE68 F DD One PUSHL #8314472 : 0415 
68 1 FB 0004 CALLS #1, MAILSGETMSG é 
0 DD 00048 PUSHL : 
67 o4 FB 0 4D CALLS #1, MAILSPUT_OUTPUT : 
50 43 Ap 9A 00 3 1$ Ovz (R2) £0418 | 
A U 
de noes $F 00056 PUSHAB 68(RO) ERS) | 
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MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 1b-$e =1984 01:21: VAX-11 Bliss-32 V4.0-742 Page 15. 
V04-000 ae RH Me See TS Oe ed er (6) 
7E 42 A2 9A O00SA MOVZBL 66(R2), =(SP) + 0617) : 
007e0e36 F DD O08 PUSHL $83; 4480 : vate : 
68 1 FB 00064 CALLS #1, MAILSGETMSG 3 ‘ 
9 DD 0067 PUSHL RO : ; 
67 : FB 00069 CALLS #3, MAILSPUT_OUTPUT : 3 
9 11 0006C BRB aS + 0412 : 
000000006 00 00 EB DOG 2$: CALLS #0, MAILSFORW_PRIV_CHECK : 0426 | : 
6F 50 £9 000 BLBC ~=_-«aRO,. BS : ; 
56 DD 00078 PUSHL 6 + 0426) : 
5A DD OO07A PUSHL R10 : | ; 
000000006 00 02 FB 907¢ CALLS #2, CLISGET VALUE : ; 
53 66 3C 008 MOVZWL COMMAND DEST, R > 0428 : 
38 04 Ab 06 0086 MOVL  COMMAND“DESC+4, R2 : : 
62 5 2A 3A OOOBA LOCC #42, R37 (R2) > 0427 ; 
02 12 0008E BNEQ 3$ : ; 
51 D& 00090 CLRL sR : ; 
51 DS 00092 3$: TSTL = RI + 0428 : 
54 12 00094 BNEG 9$ : ; 
62 53 25 3A 00096 LOCC = #37, -R3, (R2) + 0429 3 
02 12 0009A BNEQ 4$ F : 
51 D4 0009C CLRL RI : : 
51 DS OO09E 4$: TSTL = R11 : 0430 ; 
48 12 OO0A0 BNEQ 9$ : ; 
4A AE 94 OOOA CLRB = TMPBUF +66 0432 ; 
08 AE 9F OOOA PUSHAB TMPBUF + 0433 ; 
56 DD 0008 PUSHL  R6 : 
000000006 00 02 FB OOOAA CALLS #2, MAILSGET_SYSMAI_REC ; 
05 50 €9 00081 BLBC ~=-RO, F 
4A AE 95 000B4 TSTB ‘TMPBUF +66 > 0434 
12 12 0008 BNEQ 7$ : 
56 DD 00089 5$ PUSHL > 0435 
OO7EDE78 8F DD 000BB PUSHL #8314488 ; 
68 01 FB 000C1 CALLS #1, MAILSGETMSG : 
50 DD 000C4 PUSHL : 
67 02 FB 000C6 CALLS #2, MAILSPUT_OUTPUT : 
1C 11 000C9 6$: BRB $ : 
50 4B AE QA 000CB 7$: MOVZBL TMPBUF+67, RO > 0439 
4C AEGO 9F OOOCE PUSHAB TMPBUF+68(RO] : 
7E 4E AE 9A 00003 MOVZBL TMPBUF+66, -(SP) : 0438 
56 DD 00007 PUSHL R6 : 0437 
OO7EDE80 BF DD 00009 PUSHL #8314496 : 
5k 01 FB OO0DF CALLS #1, MAILSGETMSG : 
67 30 De ita CALLS #4, MAILS$PUT_OUTPUT ’ | 
o0ge 31 itt 8$ BRW 7 > 0427 
08 00 6E 00 C QOEA 9$ MOVCS #0, (SP), #0, #8, DESC_1 > 0450 
65 94 OO00FO CLRB_ «MAILS T_SYSMAIRAB+30 > 0451 
06 a9 08 AE 9E oF MOVAB TMPBUFT MAIL$T_SYSMAIRAB+36 > 045 
E2 AD OF OOOF PUSHAB MAIL$T SYSMAIRAB > 045 
000000006 09 01 FB OFA CALLS #1, SYSSREWIND : 
5 1 DO 00101 MOVL #1. FIRST USER > 0454. 
E2 AQ 9F 00104 10$:  PUSHAB MAIL$T SYSHAIRAB > 0455 
900000006 90 Q! FB 107 CALLS #1, SYS § T : 
001827A BF 0 D1 001 CMPL RO. #989 : | 
5c (13 0011 BEQL =-—«12$ ; 
6E 1F BO 0011 MOVW #31, DESC_1 : 0457 | 
| 


MAILSSHOW 
v04-000 


; Routine Size: 


VAX/VMS MAIL UTILITY SHOW COMMAND 


378 bytes, 


04 AE 08 ae 4 

08 8 oF 

000000006 00 9¢ 4 
08 A oF 

000000006 00 03 Fe 
CA 3 

re a 

r 529 

68 OO7EDE88 4 re 

* 50 bp 

9g D4 

50 4B af 9A 

4C AES oF 

7E 4E AE 9A 

08 A6 OF 

FE91 CF ODF 

67 04 FB 

93 000000006 bg 5? 

69 01 90 

50 01 BY 


Routine Base: 


SCODES + 0294 
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30 VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMAIL.SRCISHOW.B32;1 


TMPBUF, DESC_1+4 
SP 


DYN_DESC 
#2, STRSTRIM 
aan 
= RALLSMATCH. NAME 


RO, 08 
FIRST_USER, 11$ 
-(SP) 


#8314504 
#1, MAILSGETMSG 
art a OUTPUT 


MAILSPUT_OUTPUT 
oe gale FLAGS+1, 10$ 


#1, MAILST_SYSMAIRAB+30 
#1, RO 


Page 


Sete Se Se Se Se Se Ge Ge Se Ge Ge Se Se Se Se Se Fe Fe Fe Se Se Se Se Se Se Ge Be 


at et et ae 


FP 


M—OOODNAVUES WN O OONOULS wr 
DWONOULS WMO 


rx 
09.00 09 0000000000 0000 


; Routine Size: 


WAWNAAWWNANAWw 
PAQRMAMAAMAIAIIVIVI & 


MAIL UTILITY SHOW COMMAND 


GLOBAL ROUTINE MAILSCMD_SHOW_AUTO = 
FUNCTIONAL DESCRIPTION: 
i Show whether or not AUTO_PURGE is enabled 


BEGIN 
LOCAL 


DESC : VECTORE2,LONG); 


DESCCO] = DESCL1) = 0; 

STRSCOPY DX (DYN DESC ,MAILSGETMSG(MAIL$_SHOW140)); 
STRSAPPERD (DYN_BESC ,MAILSGETMSG( (1 
MAILSPUT_OUTPUT(DYN_DESC); 
RETURN TRUE 

END; 


000C 

53 000000006 00 9€E 

52 00000000" 00 9E 

7E 7C 

OO7EDEEO 8F DD 

63 01 FB 

50 0D 

52 DD 

000000006 00 02 FB 
50 600000006 00 »b0 

FOAM Q2 €1 
OO7EDEFO 8F ODD 

06 11 

OO7EDEES 8F DD 

3 Q1 FB 

50 0D 

52 0D 

000000006 00 2 4 
000000006 00 01 FB 
50 01 »? 


Routine Base: S$CODE$ + 040E 
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F NOM NIMWO FY COMO AS "OWOMOCONVO 
nm 


COoooooooooooooooooocoeo 
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32_V4.0 


1984 01:21: VAX-11 Bliss- -742 p 
1382 5:25:38 DISKSVMSMASTER: CMAIL.SRCIJSHOW.B832;1 


F .MRILSL USRS¥ SBUF CVD V_NOAUTOPURGE] 
ELSE MAIL$_SHOW150))); 


MAILSCMD_SHOW_AUTO, Save R2,R3 
MAIL$GETMSG, R3 

DYN DESC, Re 

Dest 


#8314592 

#1, MAILSGETMSG 

RO 

RS STRSCOPY_DX 
MAIL$L_USRSYSBUF, RO 
ue 37TRO), 1 
#8314608 

#8314600 

#1, MAILSGETMSG 

RO 

aS STRSAPPEND 

#1, MAILSPUT_OUTPL 
#1. RO 


o 


F 13 | 
VAX/VMS MAIL UTILITY SHOW COMMAND 16-Sep-1984 01:21:50 VAX-11 Blise-32_v4.0-742 Page 18) 
1a-Sep-1984 12:42: DISKSVMSMASTER: CMAIL.SRCISHOW.B32;1 (a) 


GLOBAL ROUTINE MAILSCMD_SHOW_SELF = 
FUNCTIONAL DESCRIPTION: | 


Show what copy self features are enabled. 


1 
1 
1 
: | 
1 
1! 
BEGIN | 
LOCAL 
DESC : VECTORC2,LONG); | 
DESCLO) = DESCL1) = 0; | 
IF .MAILSL_USRSYSBUFCVMD_V_SELF SEND] 
THEN STRSCOPY_DX(DYN_DESC ,MAILSGETMSG(MAIL$_SEND) ) 
ELSE STRSCOPY_DX(DYN_DESC,DESC); | 
; | 
2 
2 
; 
| 
| 


IF .MAIL$SL_USRSYSBUFCVMD_V_SELFREPLY] 
THEN BEGIN 
IF .DYN_DESCCDSC$W_LENGTH] NEQ 0 
THEN STRSAPPEND (DYN_DESC,$DE 
STRSAPPEND (DYN _DESC RAILSGETASG( 


SCRIPTOR(',')); 
MAIL$_REPLY)); 


IF .DYN DESCCDSC$W_LENGTH] NEQ 0 
THEN MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_SHOW120) ,DYN_DESC) 
ELSE MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_~SHOW1 30) 5; 


po fololojlololeolelololelololololojlolelelelelelelelolojlolelo) 


DU PVPV PVP SUPP SUSU 


SOOWONAVE WN OVO ONOUE WO O®@ 
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RETURN TRUE 
END; 


2C 00469 P.AAR: .ASCII \.\ : 
0046A “BLKB 2 
0000001 0046C P.AAQ: ‘LONG 1 ; 
0000000" 00470 “ADDRESS P.AAR : 
007C¢ 00000 .ENTRY MAILSCMD SHOW SELF, Save R2,R3,R4,R5,R6 : 0502 
56 000000006 00 9€ 00002 MOVAB MAILS$L_USRSYSBUF, R6 : 
55 000000006 00 9€ 00009 MOVAB MAIL$POT OUTPUT, R5 : 
$2 000000006 00 9€ 00010 MOVAB STRSAPPERD, R& ; | 
33 000000006 9 9E O17 MOVAB MAILSGETMSG, R3 : 
00000000' 9E 00 3 MOVAB DYN DESC, Re ; | 
E 7C 000 CLRQ pest 3 0514 | 
50 66 00 00027 MOVL  MAILSL_USRSYSBUF, RO > 0515 
0D 1F AO €9 O002A BLBC 31(RO), 1$ ; 
OO7EDEB8 BF DD 0002 PUSHL #8314552 : 0516 
63 g FB 00 CALLS #1, MAILSGETMSG : 
0 oD 6 7 PUSHL RO : 
02 11 9 BRB 2$ : 
SE DD 00038 1$ PUSHL SP > 0517 | 
5 DD 88 D 2$ PUSHL ag Z 
000000006 90 0 FB F CALLS #2, STRSCOPY_DX : | 
0 66 D0 00046 MOVL MAILSL_USRSYSBUF, RO : 0519 | 
1C 1F AO 01 €1 00049 BBC #1, 31TRO), 4$ : | 
| 


SE ttttitZtZiZrQtvt—'tittitCCCCZH_——————,—-!,Z,_-LE lw 


7 
13 
MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 1b-se =1984 01:21: VAX=-11 Bliss-32 V4.0-742 Page 19. 
irae ft 12-808- 1382 94:24:38 DISKSVMSMASTER:CMAIL.SRCJSHOW.B32:1 ” (8) | 
04 TSTW YN_DESC ; 0521 
§ B B BEQ ry zs : | 
A3 AF 9F PUSHAB P.AAQ 3; 0522 
52 DD 0005 PUSHL aay 
64 FB 0005 CALLS #2, STRSAPPEND : 
OO7EDECO BF DD O05, 3$ PYSHL #8314 : 0523 
63 1 FB 00 60 CALLS #1, MAILSGETMSG : 
DD 0006 PUSHL R : 
52 DD 00065 PUSHL ; 
64 0 F 0067 CALLS #2, STRSAPPEND : 
62 BS 0006A 4$: TSTW  DYN_DESC + 0526 
12 1 006¢ BEQL 4«=sOS$ : 
52 DD 00 E PUSHL Re t 0527 
OO7EDEC8 B&F DD 0007 PUSHL #8314568 : 
63 o1 FB 0076 CALLS #1, MAILSGETMSG : 
0 DD 0007 PUSHL RO : 
65 02 FB 0007B CALLS #2, MAILSPUT_OUTPUT : 
OF 11 OOO7E BRB 6$ : 
OO7EDEDO 8F DD 00080 5$: PUSHL #8314576 + 0528 
3 01 FB 00086 CALLS #1, MAILSGETMSG ; 
50 DD 00089 PUSHL RO : 
65 01 FB 00088 CALLS #1, MAILS$PUT_OUTPUT : 
50 01 DO OOO8E 6S: MOVL #1. RO + 0529 
04 00091 RET + 0530 


; Routine Size: 146 bytes, Routine Base: S$CODE$ + 0474 


95 
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; Routine Size: 


VAX/VMS MAIL UTILITY SHOW COMMAND 


3 1 GLOBAL ROUTINE MAILSCMD_SHOW_WASTE = 
3 § FUNCTIONAL DESCRIPTION: 
; : | Show the wastebasket folder name 
1 i-- 
05 8 BEGIN 
0540 IF ERR(MAILSOPEN_IF();, 
B26) RETURN TRUE); 
278 IF NOT .MAILSGL_FLAGSCMAIF V_ISAM] 
he THEN (SIGNAL (MAIL$_NOTYSAM) ; 
0546 IF .MAIL$Q_WASTEDESCCOSC$W_LENGTH] EQL 0 
Tah THEN SIGNAL (MAIL$_NOTREADIN) 
0549 
0550 RETURN TRUE 
0551 1 END; 


0004 

52 000000006 00 e 

000000006 00 0O FB 
3A 50 E9 

08 000000006 00 €8 

OQO7ES80AA 8F DD 

OA 11 

62 85 

OF 12 

QO7E8022 8F 0D 

000000006 00 01 FB 
18 11 

52 DD 

OO7EDE90 8F DD 

000000006 01 FB 
50 0D 

000000006 00 02 FB 
50 01 +4 


81 bytes, Routine Base: S$CODE$ + 0506 


RETURN TRUE); 
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~m - 
tad bad 


Ww 
wn 


OOQooooooooooooooocoa 
= 
wn 


COOoOooooooooooooooocoa 


32 _V4.0-742 


H 13 
16-Sep-1984 01:21: VAX-11 Bliss- » 
107388-138e 93:23:33 DISKSVMSMASTER: CMAIL.SRCJSHOW.B32;1 


ELSE MAILSPUT_OU/PUT (MAILSGETMSG(MAILS$_SHOW110) ,MAIL$Q_WASTEDESC); 


MAILSCMD_SHOW_ WASTE, Save R2 
MAIL$Q_WASTEDESC, RO 

#0, MATLSOPEN_IF 
STATUS, 4$ 

MAILSGL FLAGS, 1$ 
#8290472 
NAILSQ_WASTEDESC 
#8290338 

“. LIBSSIGNAL 


#8314512 

#1, MAILSGETMSG 

#2, MAILSPUT_OUTPUT 
#1, RO 


Foy af af af at at at at att 


RMrofororofnon — = = 


SUE WN—ODOODND 


Routine Size: 


VAX/VMS MAIL UTILITY SHOW COMMAND 


i FUNCTIONAL DESCRIPTION: 


GLOBAL ROUTINE MAILSCMD_SHOW_DIR = 
Show the name of the current mail directory 


0000 00000 
000000006 00 9F sit 
00010001 8F DD 44 
OO7EDF18  8F DD QOO0E PUSHL 
000000006 00 O03 FB 00014 
50 01 D0 00018 
04 OOO1E 


31 bytes, Routine Base: S$CODE$ + 0557 


iss- 
SMASTE 


MD_SHOW DIR, Save nothing 
USERDE 


-_ 


32 V4.0-742 
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a 


VW —O 
v 


: Youtine Size: 
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41 bytes, Routine Base: S$CODE$S + 0576 


~ 
13 | 
VAX/VMS MAIL UTILITY SHOW COMMAND 18-Sep-1984 01:21: VAX=11 Bliss=32_V4.0-742 p 
12-808- 1382 93:25:39 DISKSVMSMASTER:CMAIL.SRCJSHOW.B32: 1 age 433 
63 1 GLOBAL ROUTINE MAILSCMD,SHOW_FILE = 
69 FUNCTIONAL DESCRIPTION: 
¢ ; Show the name of the current mail file 
589 BEGIN 
571 5 IF _ERR(MAILSOPEN_IF();, 
2f6 RETURN TRUE); 
32% ¢ SIGNAL(MAILS_MAILFILE,2X'10001" ,MAILSQ_RD_DESC) 
057 RETURN TRUE 
$259 END; 
0000 0000 ENTRY MAILSCMD_SHOW FILE, S thi : 0563 
000000006 99 00 FB 69008 CALLS #0, MAILSOPENTIF =" : 9253 
1 £9 0000 BLBC STATUS, 1$ : 
900090006 00 9F 000 PUSHAB MAIL $Q"RD_DESC + 0574 
00010001 8F DD 0001 PUSHL #65537 : 
OO7EDF20 8F DD 0001 PUSHL #8314656 : 
000000006 00 03 FB OOO1E CALLS #3, LIBSSIGNAL 
50 01 DO 00025 18: MOVE. #1. RO : 0576 
04 00028 RET : 0577 
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MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 16-Sep-1984 01:21: VAX=11 Bliss-32 V4.0-742 3 
y0Lt000 easeen1obe $aieai8 | Na eReuMeALS FERS CMAIC eRe asHow.e32-1 2% 133 


: aes z } GLOBAL ROUTINE MAILSCMD_SHOW_NEW = 
: 46 9 ; FUNCTIONAL DESCRIPTION: 

; <e8 ; ¢ : Show the new message count . 
: 450 584 1 i-- 

> 451 585 2 BEGIN 

; 4 ¢ 5 

; 4 5 LOCAL 

: 454 0588 NEWCOUNT; 

: 455 389 

:.< 5 5 NEWCOUNT = 0; 

; $3 0591 MAILSGET _NEWMAIL (MAILSO _USERNAME ,NEWCOUNT) ; 

: 459 §298 MAIL SPUT OUTPUT (MAILSGETMSG(MAIL$_YOUHAVENEW) , .NEWCOUNT); 

ee ala 


0000 00000 -ENTRY MAILSCMD_ SHOW_NEW, Save nothing ; 0578 
7E 04 00002 NEWCOUN ; 0590 
SE DD 00004 PUSHL SP 3; 0591 
00000000G 00 9F 00006 PUSHAB pee NAME 3 
000000006 00 02 FB 0000C CALLS ee RATLScET _NEWMAIL ; 
6E DD 00013 PUSHL EWCOUN 3 0593 
OO7EDEO8 8F DD 00015 PUSHL mB3i4 " 3 
000000006 00 a FB 0001B CALLS . MAILSGETMSG 3 
0 DD 00022 PUSHL 3 
000000006 00 02 FB 00024 CALLS #2, MAILSPUT_OUTPUT : 
50 01 pd0 00028 MOVL #1, RO 3: 0594 
04 0002E ; 0595 


; Routine Size: 47 bytes, Routine Base: S$CODES + O59F 
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463 
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14-Sep-1984 12:42: DISKSVMSMASTER: CMAIL. SRC 

GLOBAL ROUTINE MAILSCMD_SHOW_ALL = 

FUNCTIONAL DESCRIPTION: 

Show the world 

ice 

BEGIN 

UREC = .MAILSL_USRSYSBUF : S$BBLOCK; 
LOCAL 
DESC : VECTORL2,LONG); 

! 

' File related things (SET MAIL_DIR, SET FILE, SELECT folder, SET 

i WASTEBASKET, SHOW DELETED, SH HOW. NEW _MAIL_COUNT) 
0614 Des¢tO) = 0 
0615 2 DESCL1) = DESCLO): 
0616 2 MAILSCMD_SHOW_ DIR 
0617 2 MAILSCMD~ FILE(S; 
0618 2 IF AAILSGL _FCAGS MALF _V_ISAMJ 
0619 3 THEN BEGI 
0620 MAI CSCMD._ SHOW_FOLDER(); 
0621 MAILSCMD~SHOW-WASTE(); 
06 é MAILSCMD~SHOW-DELMSG(); 
06 MAILSPUT =QUTPOT (DESC) ; ‘Blank Line 
0624 MAILSCMD_SHOW_NEW() ; 
gay ges 
06 f MAILSPUT_OUTPUT (DESC) ; ‘Blank Line 
0629 More personal things (SET FORWARD, SET PERSONAL_NAME, SET COPY_SELF, 
9630 and SET AUTOPURGE). 
0652 if NOT MAILSCHECK FORW(MAIL$Q_USERNAME) 
063 THEN MAILSPUT_OU TPUT(MAILSG GE TMSG(MAIL$_SHO Mas}? 
0634 ELSE MAILSPUT™ “OUTPUT (MAILSGETMSG(MAIL$_SHOW30) ,URECLVMD_B_FWDLNGJ); 
0636 2 IF -URECLVMD 8 FNMLNG) EQL 0 
0637 MAIC SPUT OUTPUT (MAILSGETMSG(MAIL$_SHOW60) ) 
0638 ELSe MAIL SPOT" ~BUTPUT RAIL SCETRSG RAILS SHOW70),. UR ECCVMD_B8_FNMLNGJ, 
$633 URECCVMD_T_FWONAMJ? .URECCVMD_B_FWDLNGJ); 
0641 MAILSCMD_SHOW_SELF (); 
064¢ MAILSCMD~SHOW-AUTO(); 
0644 2 RETURN TRUE 
0645 1 END; 

000 .ENTRY MAILSCMD SHOW ALL, Save R2,R3.R4,R5 


55 000000006 00° °E 002 MOVAB MAILSGETASG, R5 
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ra 
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000000006 


Routine Base: 


4 000000006 00 
$ nO 9 
5 000000006 ? 
A 6 
Lf 000000006 
4 0 
C 0 
E 
64 01 
A3 90 
E 
64 1 
000000006 00 
00 1 
10 0 
QO7EDE48 = 8F 
65 gt 
0 
64 01 
11 
43 A2 
QO7EDE5O = 8F 
65 01 
50 
64 OS 
42. A 
10 
OO7EDE68 8F 
65 01 
50 
64 01 
1A 
50 43 A 
44 A04 
7E sé A 
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65 01 
64 33 
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C3 00 
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1S-3en-1966 04:23:59 


MAIL$PUT_OUTPUT, R4 
MAILSCMD~SHOW_DIR, R3 


# 
malt L_USRSYSBUF, R2 


IL$ 
IL$ 
, MAICSCMD_ % 

#0, MAILSCMD~ SHOW WASTE 
#0, MAILS 
#1, MAILS$PUT_OUTPUT 
#0, MAILSCMD~SHOW_NEW 
#1, MAILSPUT_OUTPUT 
MAIL$Q_USERNAM 
#1, MATLSCHECK_FORW 
RO, 2$ 
#8314440 
#1, MAILSGETMSG 
a, MAILSPUT_OUTPUT 
67(R2) 
#8314448 
#1, MAILSGETMSG 
#2, MAILSPUT_OUTPUT 
66(R2) 


#8314472 
#1, MAILSGETMSG 
MAILSPUT_OUTPUT 


—DDD 


> wna 
Bese SETCv 
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L$PUT_OUTPUT 
L$CMD~SHOW_SELF 
LSCMD~SHOW-AUTO 
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VAX/VMS MAIL UTILITY SHOW COMMAND 16-Sep-1984 01:21:50 VAX=11 Bliss-32 
14-Sep-1984 12:42: DISKSVMSMASTER 

0 IF NOT CHSEQL(.IF_STATE DESCLDSC$u LENGTH) 

0 IF _STATE_DESCLDSCSA_POINTER], 

0 -PREV_STATELDSCS$W_LENGTHJ 

0 . PREV STATELDSC$A_POINTERS) 

0 THEN BEGIN 

0 MAILS$PUT_OUTPUT(ZDESC); 

0 MAILSPUT—OUTPUT (MAIL$GETMSG(MAIL$_SHOWKEY30) 
0 IF _STATE_DESC); 

0 STRSCOPY_DX (PREV USTATESIF_STATE_DESC); 
6 IF .BRIEF_FLAG 
6 THEN MAILSPUT -OUTPUT (MAILSGETMSG(MAILS S SHOWKEY10), 
0 Y_NAME_DESC,EQUIV_DESC) 
0 ELSE BEGIN 
0 IF .KEY_ATTRIBUTESCSMGS$V_KEY_NOECHO] 
0 THEN STRSFREE1_DX(SEEN STATES) 

0 ELSE STRSCOPY BXCSEEN ST YATES MAIL SGETHSGCRAILS_SHOWKEY40) ) ; 
0 IF_.KEY ATTRIBUTESCSMGS$V_REY_TERMINATE] 
0 THEN BEGIN 

7 IF .SEEN_STATESCDSC$W_LENGTH] NEQ 0 

7 THEN STRSCONCAT (SEEN STATES, SEEN_STATES,COMMA_DESC, 

7 MAI ETASG (MAILS. SHOWKEY505) 

7 ELSE STRSCOPY Attest TATES, 

, aa MRICSCE TREC (MAT L$_SHOWKEY50)); 

IF_.KEY_ATTRIBUTESCSMG$V_KEY_LOCK] 
THEN BEGIN 


IF .SEEN_STATESCOSC$W_LENGTH] NEQ 0 
THEN “STRSCONCAT (SEEN STATES SEEN_STATES,COMMA_DESC, 
MAIL SGETASG(MAILS_ SHOWKEY705) 
ELSE STRSCOPY_DX(SEEN STATE 
MAILSGETMSG(MAIL$_SHOWKEY70)); 


TRIBUTESCSMG$V_KEY_SETSTATE] 
EN_STATESCOSC$W_LENGTH] NEQ 
EN STRSCONCAT(SEEN_STATES,SE 
MAILSFAO_ GETRSGt “ 
ELSE STRSCOPY Dx< SEEN. S TATES, 
MAIL Ace Tmset (MA 


MSTA TATE_STRI 


a0 
EN_STATES,COMMA_DESC, 
ILS_SHOWKEY60, 
NG_ Besc)) 

IL$ SHOWKEYEO, 
NG_BESC)) 


END; 
IF .SEEN_STATESCDSCS$W_L 
THEN RAIL iy x outey 


ENG 

1m 

ELSE MAILSPOT OUTPUT 

END KEY_NAME_DES 


NEQ 0 
GETMSG(MAILS SHOWKEY20) 
SEEN STA 
GETRSG (RAILS. SHOUREY10). 


P44 


END; 
END 
END UNTIL NOT CLISGET_VALUE(SD_STATE,STATE_DESC); 


ELSE At 
"9 directory of key states 
nt CONTEXT = 0; 
STRSFREE1_DX(PREV_STATE); 
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MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 16-Sep-1984 01:21: VAX=11 Glisse 32 _V4.0-742 Page 29) 
v04-000 18-808 -13b2 04:23:39 DISKSVMSMASTER: CMAIL. SRCJSHOW.B32; 1 ~ 
-BLKB 4 
00# $0885 KEY -NAME_DESC: _ 
02 OE 00032 -BYTE 14, 2 : | 
0034 .BLKB 4 | 
00# 00038 IF_STATE_DESC: | 
TBYTE 0f2) : 
02 OF 00054 “BYTE 14, 2 : 
003¢ -BLKB 4 
00# 00040 EQuIV_DESC: 
-BYTE 0f2] : 
02 OF 00042 “BYTE 14, 2 : 
0044 *BLKB 4 
00# 00048 STATE_STRING DESC: 
.BYTE 02] ; 
02 OE 0004 “BYTE 14, 2 : 
0004¢ BLKB 4 
-PSECT $CODE$,NOWRT,2 
OFFC 00000 .ENTRY MAILSCMD SHOW_KEY, Save R2,R3,R4,R5,R6,R7,- ; 0646 
5B 000000006 00 9€ 00002 MOVAB STRSFREE1 DX, R11 : 
5A 000000006 00 9€ 00009 MOVAB STRSCOPY x. R ; 
59 000000006 00 9€ 00010 OVAB MAILSGET TRSG : 
58 F961 CF 9E 00017 MOVAB : 
57 00000000" 00 H 0001¢ MOVAB SEEN, “STATES, R7 ; 
5E 10 C2 0002 SUBL2 ; 
08 AE 04 00026 CLRL sors + 0673 
OC AE 08 AE 9E 00029 MOVAB Z2DESC, ZDESC+4 : 0674 
24 AR OF 000¢E PUSHAB SD_DIRECTORY > 0675 
000000006 00 01 FB 00031 CALLS #1, CLISPRESENT : 
03 50 E9 00038 BLBC ODIR_FLAG, 1$ : 0676 
0201 31 00038 BRW 223" ; 
FO ABS 9F OOO3E 1$ PUSHAB SD_ALL : 0678 
000000006 00 01 FB 00041 CALLS Hi, CLISPRESENT ; 
OF 50 8 00048 BLBS  ALL_FLAG, 2$ : 
18 AZ 9F 00048 PUSHAB KEVBESC : 0679 
E4 AB 9F 0004E PUSHAB SD_KEYNAME F 
000000006 00 02 FB 00051 CALLS #27 KEL TSGET _VALUE : 
06 11 00058 BRB 3$ : 
18 A? OF 9005 2$ PUSHAB KEYDESC : 0680 
68 01 FB 0005D CALLS #1, STRSFREE1_DX ; 
10 Ag OF 90060 3$ PUSHAB SD.BRIEF > 0681 
000000006 00 gi FB 0006 CALLS #17 CLISPRESENT ; 
56 0 D 9006A MOVL RO. BRIEF_FLAG ; 
58 DD 0006D PUSHL RS > 0682 
000000006 00 gi FB O06F CALLS 1. CLISPRESENT ; 
OE 0 : $ BLBC : 
10 A? 9F 0007 PUSHAB th _DESC > 0683 | 
38 DD 0007C PUSHL ; 
000000006 00 02 FB 0007 CALLS , CLISGET_VALUE F | 
06 11 008 BRB : 
10 A? 9F 00087 4$ PUSHAB STATE_DESC > 0684 
4B 01 FB OO0BA CALLS #1, STRSFREE1_Dx ; 
| 
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30 VAX=11 Bliss=-32 V4.0-742 
: DISKSVMSMASTER: CMAIL.SRCISHOW.B32;1 


SMG_CONTEXT 
PREV_STATE 
#1, STRSFREE1_Dx 
STATE_DESC 


$ 
«A 
TA 
2 
T 
Q 
E 
F 


Kee AMAR ve 


ATE_DESC, R5 
ATE 3 aap R4 


-? 
Ss 
TE DESC+4, R 

R4), #0, STATE_DESC, (RO) 


T 
T 
E 
( 
6 

KEYDESC, R1 
KEYDESC+4, R2 


KEY_NAME_DESC+4, RO 
R1,~(R2), #0, KEY_NAME_DESC, (RO) 


6$ 

PREV_STATE+4, RO 

R5, TR4), #0, PREV_STATE, (RO) 
9$ 


ZDESC 

#1, MAILSPUT OUTPUT 
IF STATE_DEST 
#831471 


8 
4e MAILSGETMSG 


#2, MAILSPUT OUTPUT 
IF STATE DESC 


PREV_STATE 

#2, STRSCOPY_Dx 
BRIEF _FLAG, T0$ 

KEY ATTRIBUTES, 11$ 
R 


#, STRSFREE1_DX 
#8314720 
#1, MAILSGETMSG 


R 
#2, STRSCOPY_DX 
#1, KEY_ATTRIBUTES, 148 


SSeS Se Se Se Se Se Se Se Se Se Se Se Se Be Ge Ge Se Ge Ge Ge Se Ge Se Ge Be Be Be Se Se Se Se Be Se Se Se Se Be Se Se Se Se Se Se Se Se Be Se Be Be Se Ss Sete te Se 
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MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 
v04-000 


OO7EDF68 

69 
D4 

00 
OO7EDF 68 

69 


6A 
6E 


OO7EDF 78 

69 
D4 

00 


OO7EDF78 
69 


6A 
6E 


38 
OO7EDF70 

0 
D4 

09 


3 
0 OO7EDF 70 


6A 


vrow 
ooo 


OO7EDF 
69 


— 
- 
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@ 


sT7 
i 


4d 
Ld 
ovo 
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> 
on 
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N_STATES 


14728 
, MAILSGETMSG 
MMA_DESC 


STRSCONCAT 


14728 
MAILSGETMSG 


> Nee 


STRSCOPY Dx 
KEY_ATTRIBUTES, 16$ 
_STATES 


Oo DUIMNMNO-@oLSf&yNOOCO—-oOw¢n 
aaa” a . iwem 


4744 
, MAILSGETMSG 
COMMA_DESC 


R 

oe STRSCONCAT 
#8314744 

4e MAILSGETMSG 


R7 

#2, STRSCOPY_DXx 

#4, KEY_ATTRIBUTES, 18$ 
SEEN. STATES 

STATE $TRING_DESC 
#8314736 

#2, MAILSFAO_GETMSG 


COMMA_DESC 
R? 


R7 

#4 STRSCONCAT 
STATE_STRING_DESC 
#831475 

‘ , MAILSFAO_GETMSG 
R 

#2, STRSCOPY_DX 
SEEN_STATES 


R7 

EQUIV_DESC 
KEY_NAME_DESC 
#8374704 


#1, MAILSGETMSG 
RO 


9 VAX-11 Bliss-32 V4.0-742 
: DISKSVMSMASTER: CMAIL.SRCJSHOW.B832;1 
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(14) 
0722 
0724 


0723 


| 
14 
MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 18-$¢ -1984 01:21: VAX-11 Bliss-32 v4.0-742 Page 32) 
v04-000 12-8 08-1 ope 03:23:38 DISKSVMSMASTER: CMAIL.SRCJSNOW.B32; 1 . as, 
000000006 00 o% FB 09 CALLS #4, MAILSPUT_OUTPUT F : 
30 AD gf 0012 198: PUSHAB EQUIV Desc : 0749, 
2 A? 9F 0021 PUSHAB Key NAME _DESC ; ; 
OO7EDF48 BF DD 0021 PUSHL #8374696 : : 
69 gi FB IE CALLS #1, MAILSGETMSG : : 
000000006 00 03 FB 00223 CALLS #3, MAILSPUT_OUTPUT : : 
FE7B8 31 OO22A 08: BRW : 0696 : 
10 ay a 00 D 21$: PUSHAB STATE_DESC + 0754 : 
000000006 99 03 FB 0 ; CALLS #2, CLISGET_VALUE : : 
: BLBC RO, 24$ : F 
FE4E 31 0023C BRW : : 
04 Ag D4 O023F 228: CLRL SMG_CONTEXT : 0758 ; 
08 aA? 9F 00 rs PUSHAB PREV_STATE : 0759 ; 
6B 94 FB 0024 CALLS #1, STRSFREE1_Dx : F 
7 DD 00248 PUSHL R : 0760 : 
6B 01 FB O024A CALLS #1, STRSFREE1_Dx : : 
38 AZ OF 00240 238: PUSHAB STATE_STRING_DBESC > 0761 : 
30 a7? 9F 00 30 PUSHAB EQU : : 
08 AE 9F 0025 PUSHAB KEY_ATTRIBUTES : : 
38 A? 9F 00256 PUSHAB IF _STATE_DESC : : 
0 aA? 9F 00259 PUSHAB a : : 
18 AE 9F 0025C¢ PUSHAB SMG CONTEXT : : 
000000006 00 9F 0025F PUSHAB MAICS$L_SMG_KEYTABLE : > 
000000006 00 07 FB poses CALLS #7, SMGSLIST_KEY_DEFS 3 : 
66 50 €9 0026C 248: BLBC ~—_ RO, _-26$ : : 
0670 C8 SF 0026F PUSHAB P.AAU : 0767 : 
28 AZ OF 00273 PUSHAB IF _STATE_DESC : : 
18 A? 99F 00276 PUSHAB KEYDESC $ 3 
000000006 00 03 FB 00279 CALLS #3, STRSCONCAT ; : 
51 0c A? DO 00280 MOVL PREV_STATE+4, R1 : 0768 : 
50 2C AZ? DO 00284 MOVL IF_STATE_DESC+4, RO : 0770 : 
28 «A? 00 61 08 M4 20 00288 CMPCS PREV_STATE, (R15, #0, IF_STATE_DESC, (RO) ; 0768 : 
BB 13 00290 BEQL 238 : : 
51 04 A? pO 00292 MOVL SEEN_STATES+4, R1 : 0772 : 
54 8 A? 3C 00296 MOVZWL KEYDESC, R4 3: 0773 3 
50 C AZ DO 0029A OVL  KEYDESC+4, RO : 0774 : 
61 67 60 54 39 00 i MATCHC R4, (RO), SEEN_STATES, (R1) : : 
03 13 002A i aoe : : 
53 54 00 002A5 MOVE RG, R3 ; : 
53 54 6 99 AB 25$: SUBL2 ; : 
AO 12 0020AB BNEQ F : 
8 A? OF 99 AD PUSH IF STATE_DESC : 0776 : 
8 A7 9F 00 8 PUSH, PREV_STAT : é 
6A 0 FB 0028 CALLS #2, STRSCOPY_DX 3 é 
067¢ CB 9F 00286 PUSHAB P.AAW : 0777 3 
28 A? 9F OOOBA PUSHAB IF_STATE_DESC ; : 
27 DD 002BD PUSHL R7 ; : 
7 DD 002BF PUSHL  R7 ; : 
000000006 00 04 FB 9 C1 CALLS #4, STRSCONCAT 3 : 
08 AZ 9F 002C8 PUSHAB PREV. STATE : 0778 ; 
000000006 00 91 FB 6 ¢ CALLS #1, MAIL$PUT_OUTPUT ; : 
FF78 3 D BRW 23$ > 0761 ; 
50 01 DO 00205 268: MOVL #1, RO : 0783 : 


H 14 
Sng A ma WTILITY so commen IERSBcI9R (D:2DeH9 RGHDASARTERE OMe SéEasno ast "8 lh 
04 00208 RET ; 0784 


; Routine Size: 729 bytes, Routine Base: S$CODES + 0684 


14 
MAILSSHOW VAX/VMS MAIL UTILITY SHOW COMMAND 1b-Se 
v04-000 14-Se 


-1984 03:74:39 VAX=11 Bliss-32 V4.0-742 
1984 12:42: DI SKSVMSMAS TER: CMAIL.SRCISHOW.B32;1 


$26 0785 1 END 
655 0786 0 ELUDOM 


~-EXTRN LIBSSIGNAL 
PSECT SUMMARY 


Name Bytes Attributes 
SOWNS 80 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2445 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ooemmnet Syabelg ocooece= Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28:CS Mog ISIS TAA ET L32;1 9776 33 0 581 00:00.7 
~$255$DUA28: CMAIL.OBJJMAILDEF .L32;1 457 46 10 26 00:00.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SHOW/OBJ=GBJ$:SHOW MSRC$:SHOW/UPDATE=(ENHS: SHOW) 


Size: 2264 code + 261 data bytes 
Time: 00:20.6 


Slasned Time: 01:15.0 
Lines/CPU Min: 2293 


soaney Used: 219 pages 
Compila 


tion Complete 


roe it 


vo 


ENT CORPORATION 
ND PROPRIETARY 
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